﻿

Public Class Inicio
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
        lblErrorLogin.Text = ""
        If Not Page.IsPostBack Then
            FG.culturaPaginas()

        End If

    End Sub
    Private Function BUscaSiUnOperarioTieneLugarDeTrabajo() As Boolean
        Dim Cbo_virtual As New DropDownList
        Dim I As Single
        Dim Bandera_EsSoloPacienteWEb As Boolean
        PersLOgueada.CargaComboCnPeril(Cbo_virtual)


        Bandera_EsSoloPacienteWEb = True

        'me fijo si tiene otro perfil aparte del de paciente web
        For I = 1 To Cbo_virtual.Items.Count
            If UCase(Cbo_virtual.Items(I - 1).Text) <> UCase("Paciente Web") Then
                Bandera_EsSoloPacienteWEb = False
                Exit For
            End If
        Next


        'si tiene otro perfil me fijo si tiene lugar de trabajo
        If Bandera_EsSoloPacienteWEb = False Then
            If PersLOgueada.Dev_ID_Institucion = 0 Then
                BUscaSiUnOperarioTieneLugarDeTrabajo = False
                Exit Function
            End If
        End If

        ' si el programa llega hasta aca es que ta todo bien 
        BUscaSiUnOperarioTieneLugarDeTrabajo = True
        '---------------------------------------------

    End Function

    Private Function Busca_SI_MedicoTiene_MatriculaINhabilitada() As Boolean
        Dim param(0) As ADODB.Parameter
        Dim Rs As ADODB.Recordset

        param(0) = New ADODB.Parameter
        param(0).Name = "@DNi"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = PersLOgueada.Dev_Dni
        param(0).Size = 10


        Rs = Datos.TraerTodos("BuscaMedicoCnMatriculaINhabilitada", param, " Busca_SI_MedicoTiene_MatriculaINhabilitada- Inicio.aspx")


        Busca_SI_MedicoTiene_MatriculaINhabilitada = CBool(Rs.Fields(0).Value)

    End Function



    Protected Sub bntInicioSesion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles bntInicioSesion.Click
        Dim cPerfil As Integer = 0
        Dim cRedirect As String
        Dim cNombreUsuario As String

        If Autenticar(txtUserName.Text, txtPassword.Text) Then
            Session("Login") = txtUserName.Text
            cNombreUsuario = PersLOgueada.Dev_ApellidoYnombre
            'Resolver perfil



            ' si un una persona tiene mas de un perfil y no tiene lugar de trabajo le muestra la pantalla cn el aviso
            If BUscaSiUnOperarioTieneLugarDeTrabajo() = False Then

                Var_Globales.Set_Msje_AL_Usuario("ALTA DE USUARIO INCOMPLETA", "No se se le ha asignado un lugar de trabajo")


                cRedirect = "ComunicacionPAraElusuario.aspx"
                'FormsAuthentication.SetAuthCookie(cNombreUsuario, chkRecordad.Checked)
                Response.Redirect(cRedirect)
                Exit Sub
            End If
            '------------------------------------------------

            'busca si un medico tiene alguna matricula inhabilitada"
            If Busca_SI_MedicoTiene_MatriculaINhabilitada() = True Then

                Var_Globales.Set_Msje_AL_Usuario("TIENE UNA MATRICULA INHABILITADA PARA OPERAR")

                cRedirect = "ComunicacionPAraElusuario.aspx"
                'FormsAuthentication.SetAuthCookie(cNombreUsuario, chkRecordad.Checked)
                Response.Redirect(cRedirect)

            End If




            If PersLOgueada.Dev_ResetearClave Then
                cRedirect = "Cambio_de_Contraseña.aspx"
            Else
                cRedirect = FG.redirectDefaultPage
            End If

            'Redirige a la pagina principal del Perfil
            FormsAuthentication.SetAuthCookie(cNombreUsuario, chkRecordad.Checked)
            Response.Redirect(cRedirect)
        Else
            lblErrorLogin.Text = "Error usuario y/o password incorrectos"
        End If
    End Sub

End Class
